(DEFPROP POINTERS
 T
SPECIAL)

(DEFPROP DELNO
 T
SPECIAL)

(DEFPROP LASTSTMT
 T
SPECIAL)

(DEFPROP DELFLAG
 T
SPECIAL)

(DEFPROP FLARE
 T
SPECIAL)

(DEFPROP SENSITIVELIST
 T
SPECIAL)

(DEFPROP FLAG
 T
SPECIAL)

(DEFPROP FLARELIST
 T
SPECIAL)

(DEFPROP WEIGHT
 T
SPECIAL)

(DEFPROP DELAY
 T
SPECIAL)

(DEFPROP NREF
 T
SPECIAL)

(DEFPROP QWORD
 T
SPECIAL)

(DEFPROP GLOBX
 T
SPECIAL)

(DEFPROP GLOBY
 T
SPECIAL)

(DEFPROP TERMIN
 T
SPECIAL)

(DEFPROP RESTSENT
 T
SPECIAL)

(DEFPROP ANGER
 T
SPECIAL)

(DEFPROP FEAR
 T
SPECIAL)

(DEFPROP MISTRUST
 T
SPECIAL)

(DEFPROP ANGER0
 T
SPECIAL)

(DEFPROP FEAR0
 T
SPECIAL)

(DEFPROP MISTRUST0
 T
SPECIAL)

(DEFPROP SUPPRESS
 T
SPECIAL)

(DEFPROP TRACEV
 T
SPECIAL)

(DEFPROP X
 T
SPECIAL)

(DEFPROP DLIM
 T
SPECIAL)

(DEFPROP DELNLIST
 T
SPECIAL)

(DEFPROP DELVLIST
 T
SPECIAL)

(DEFPROP DELALIST
 T
SPECIAL)

(DEFPROP LIVEFLARES
 T
SPECIAL)

(DEFPROP DEADFLARES
 T
SPECIAL)

(DEFPROP DELEND
 T
SPECIAL)

(DEFPROP SKEP
 T
SPECIAL)

(DEFPROP REST
 T
SPECIAL)

(DEFPROP LASTTOP
 T
SPECIAL)

(DEFPROP AJUMP
 T
SPECIAL)

(DEFPROP FJUMP
 T
SPECIAL)

(DEFPROP TELL
 T
SPECIAL)

(DEFPROP NLIST
 T
SPECIAL)

(DEFPROP TVAL
 T
SPECIAL)

(DEFPROP SACTS
 T
SPECIAL)

(DEFPROP WEAK
 T
SPECIAL)

(DEFPROP INTERPERS
 T
SPECIAL)

(DEFPROP EOF
 T
SPECIAL)

(DEFPROP MESSAGE
 T
SPECIAL)

(DEFPROP ENDE
 T
SPECIAL)

(DEFPROP TALK
 T
SPECIAL)

(DEFPROP SAVE_FILE
 T
SPECIAL)

(DEFPROP FILE1
 T
SPECIAL)

(DEFPROP FILE2
 T
SPECIAL)

(DEFPROP REMARK
 T
SPECIAL)

(DEFPROP CHAR
 T
SPECIAL)

(DEFPROP VALUE
 T
SPECIAL)

(DEFPROP CONCEPT
 T
SPECIAL)

(DEFPROP WORD
 T
SPECIAL)

(DEFPROP SL
 T
SPECIAL)

(DEFPROP FL
 T
SPECIAL)

(DEFPROP DN
 T
SPECIAL)

(DEFPROP DV
 T
SPECIAL)

(DEFPROP AN
 T
SPECIAL)

(DEFPROP AV
 T
SPECIAL)

(DEFPROP ANV
 T
SPECIAL)

(DEFPROP AL
 T
SPECIAL)

(DEFPROP QL
 T
SPECIAL)

(DEFPROP RL
 T
SPECIAL)

(DEFPROP WTS
 T
SPECIAL)

(DEFPROP WT
 T
SPECIAL)

(DEFPROP STMT
 T
SPECIAL)

(DEFPROP DELSTMT
 (LAMBDA NIL
  (PROG (STMT)
        (COND (WEAK (RETURN (FLSTMT (QUOTE RACKETSET)))))
        (COND ((EQUAL DELNO DLIM) (SET (QUOTE DELNO) 1)) (T (SET (QUOTE DELNO) (ADD1 DELNO))))
        (COND
         ((OR (OR (*GREAT FEAR 22) (*GREAT ANGER 22)) (*GREAT (*PLUS (*PLUS FEAR ANGER) MISTRUST) 62))
          (RETURN (PROG2 (SET (QUOTE DELFLAG) NIL) (CHOOSE (QUOTE CHANGESUBJ))))))
        (SET (QUOTE DELFLAG) T)
        (SET (QUOTE FLARE) (QUOTE INIT))
        (SET (QUOTE STMT) (CHOOSEDEL DELNO))
        (DELCHECK STMT)
        (SET (QUOTE LASTSTMT) (AT (CAT (QUOTE "DEL") DELNO)))
        (RETURN STMT)))
EXPR)